F <- 10^(-1) * matrix( c(85, 11, 41, 78, 39, 60, 43, 64, 48), ncol = 3 ) ### An arbitrary F matrix
X <- rmatrixfisher(3000, F)
matrixfisher.mle(X)
svd(F)
## Bigger sample is needed to obtain better results
## X <- rmatrixfisher(30000, F)
## matrixfisher.mle(X)
## svd(F)
Run the code above in your browser using DataLab